home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / dev / asm / Tandem.lha / Tandem / Teaching / 47.asm < prev    next >
Encoding:
Assembly Source File  |  1999-08-21  |  835 b   |  41 lines
  1. * 47.asm    Set colours       version 0.00     1.9.97
  2.  
  3.  
  4.  include 'Front.i'
  5.  
  6.  
  7. ; This program shows you how to change the colours of a screen.
  8. ; There is a requester (TLReqcolor - see 50.asm) which faciltiates
  9. ; choice of colours by the user.
  10.  
  11.  
  12. strings: dc.b 0
  13. st_1: dc.b 'Window 0',0 ;1
  14.  dc.b 12,'Out of mem',0 ;2
  15.  ds.w 0
  16.  
  17. table:
  18.  dc.w 4                    ;no. of colours
  19.  dc.w 0                    ;colours 0-3
  20.  dc.l -1,0,0               ;colour 0               These are rather garish!
  21.  dc.l 0,-1,0               ;colour 1
  22.  dc.l 0,0,-1               ;colour 2
  23.  dc.l $7FFFFFFF,$7FFFFFFF,$7FFFFFFF ;colour 3
  24.  dc.l 0                    ;delimiter
  25.  
  26. Program:
  27.  TLwindow0
  28.  beq.s Pr_quit
  29.  
  30.  move.l xxp_gfxb(a4),a6
  31.  move.l xxp_Screen(a4),a0
  32.  add.l #sc_ViewPort,a0
  33.  lea table,a1
  34.  jsr _LVOLoadRGB32(a6)
  35.  TLkeyboard
  36.  rts
  37.  
  38. Pr_quit:
  39.  TLbad #2
  40.  rts
  41.